home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 5 / Eagles_Nest_Mac_Collection_Disc_5.TOAST / 7th-College / LearnSpan#2 / Vocab•Install(Sp 2) / card_2460.txt < prev    next >
Text File  |  1989-10-02  |  3KB  |  153 lines
  1. -- card: 2460 from stack: in
  2. -- bmap block id: 4270
  3. -- flags: 0000
  4. -- background id: 13313
  5. -- name: 
  6.  
  7.  
  8. -- part 5 (button)
  9. -- low flags: 00
  10. -- high flags: 8000
  11. -- rect: left=10 top=219 right=272 bottom=94
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 6935 / 6935
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: English/Spanish II
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   go stack "English/Spanish II 1.05"
  23. end mouseUp
  24.  
  25.  
  26.  
  27. -- part 6 (button)
  28. -- low flags: 00
  29. -- high flags: 8004
  30. -- rect: left=408 top=44 right=74 bottom=466
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 1
  34. -- font id: 0
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: CANCEL
  39. ----- HyperTalk script -----
  40. on mouseUp
  41.   doMenu "Quit HyperCard"
  42. end mouseUp
  43.  
  44.  
  45.  
  46. -- part 7 (button)
  47. -- low flags: 00
  48. -- high flags: A004
  49. -- rect: left=240 top=44 right=74 bottom=406
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 1
  53. -- font id: 0
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: Install VocabuLearn/ce
  58. ----- HyperTalk script -----
  59. on mouseUp
  60.   answer "Install VocabuLearn/ce to your Home Stack?"  with "Cancel" or "OK"
  61.   if it is "Cancel" then exit mouseUp
  62.  
  63.   set userlevel to 5
  64.   put word 2 of long name of this stack into thePath
  65.   put empty into first char of thePath
  66.   repeat until last char of thePath is ":"
  67.     put empty into last char of thePath
  68.   end repeat
  69.   put return & thePath & "English/Spanish II 1.05" after thePath
  70.  
  71.   set lockscreen to true
  72.   select card button "English/Spanish II"
  73.   type "c" with commandKey
  74.  
  75.   set cursor to 4
  76.   push card
  77.   go to "Home"
  78.  
  79.   go to card "Stacks"
  80.   put return & thePath after field "paths"
  81.   go to first card
  82.  
  83.   doMenu "New Field"
  84.   set rect of last cd fld to 130,57,380,90
  85.   set textFont of last cd fld to geneva
  86.   set textStyle of last cd fld to bold
  87.   set textAlign of last cd fld to center
  88.   set style of last cd fld to shadow
  89.  
  90.   type "v" with commandKey
  91.   choose browse tool
  92.  
  93.   repeat
  94.     set the loc of last card button to the mouseLoc
  95.     put the mouseLoc into oldLoc
  96.  
  97.     put "Move the mouse to position the button...then click." into last cd field
  98.     unlock screen
  99.  
  100.     repeat until the mouseClick
  101.       set the loc of last card button to the mouseLoc
  102.     end repeat
  103.  
  104.  
  105.     answer "Is button at the desired location?" with "No" or "Yes"
  106.     if it is "Yes" then
  107.       set cursor to 4
  108.       lock screen
  109.       select last cd fld
  110.       doMenu "Clear Field"
  111.       choose browse tool
  112.       exit repeat
  113.     end if
  114.   end repeat
  115.   getHomeInfo
  116.   pop card
  117. end mouseUp
  118.  
  119.  
  120.  
  121.  
  122. -- part 9 (button)
  123. -- low flags: 00
  124. -- high flags: 0004
  125. -- rect: left=468 top=44 right=74 bottom=501
  126. -- title width / last selected line: 0
  127. -- icon id / first selected line: 20098 / 20098
  128. -- text alignment: 1
  129. -- font id: 0
  130. -- text size: 12
  131. -- style flags: 0
  132. -- line height: 16
  133. -- part name: Home
  134. ----- HyperTalk script -----
  135. on mouseUp
  136.   go home
  137. end mouseUp
  138.  
  139.  
  140.  
  141. -- part 11 (button)
  142. -- low flags: 00
  143. -- high flags: 0000
  144. -- rect: left=8 top=215 right=274 bottom=96
  145. -- title width / last selected line: 0
  146. -- icon id / first selected line: 0 / 0
  147. -- text alignment: 1
  148. -- font id: 0
  149. -- text size: 12
  150. -- style flags: 0
  151. -- line height: 16
  152. -- part name: Blank
  153.